home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / QuickDraw GX / QuickDraw GX Info / QuickDraw GX Interfaces / Interfaces & Libraries / Pascal Interfaces & Libraries / Pascal Interfaces / FontRoutines.p < prev    next >
Encoding:
Text File  |  1994-04-01  |  5.8 KB  |  102 lines  |  [TEXT/MPS ]
  1. {
  2.  graphics:
  3.     gxFont routines
  4.     by Cary Clark, Georgiann Delaney, Michael Fairman, Dave Good, Robert Johnson, Keith McGreggor, Mike Reed, Oliver Steele, David Van Brink, Chris Yerga
  5.     Copyright ©1987 - 1993 Apple Computer, Inc.  All rights reserved.
  6.  
  7. }
  8.  
  9. {$IFC UNDEFINED UsingIncludes}
  10. {$SETC UsingIncludes := 0}
  11. {$ENDC}
  12.  
  13. {$IFC NOT UsingIncludes}
  14.     UNIT FontRoutines;
  15.     INTERFACE
  16. {$ENDC}
  17.  
  18. {$IFC UNDEFINED UsingFontRoutines}
  19. {$SETC UsingFontRoutines := 1}
  20.  
  21.  
  22. {$I+}
  23. {$SETC FontRoutinesIncludes := UsingIncludes}
  24. {$SETC UsingIncludes := 1}
  25. {$IFC UNDEFINED UsingMathTypes}
  26. {$I $$Shell(PInterfaces)MathTypes.p}
  27. {$ENDC}
  28. {$IFC UNDEFINED UsingFontTypes}
  29. {$I $$Shell(PInterfaces)FontTypes.p}
  30. {$ENDC}
  31. {$SETC UsingIncludes := FontRoutinesIncludes}
  32.  
  33. FUNCTION GXNewFont(storage: GxFontStorageTag; reference: GxFontStorageReference; attributes: GxFontAttribute): GxFont; C;
  34. FUNCTION GXGetFont(fontID: GxFont; VAR reference: GxFontStorageReference; VAR attributes: GxFontAttribute): GxFontStorageTag; C;
  35. FUNCTION GXFindFont(storage: GxFontStorageTag; reference: GxFontStorageReference; VAR attributes: GxFontAttribute): GxFont; C;
  36. PROCEDURE GXSetFont(fontID: GxFont; storage: GxFontStorageTag; reference: GxFontStorageReference; attributes: GxFontAttribute); C;
  37. PROCEDURE GXDisposeFont(fontID: GxFont); C;
  38. PROCEDURE GXChangedFont(fontID: GxFont); C;
  39.  
  40. FUNCTION GXGetFontFormat(fontID: GxFont): GxFontFormatTag; C;
  41. FUNCTION GXGetDefaultFont: GxFont; C;
  42. FUNCTION GXSetDefaultFont(fontID: GxFont): GxFont; C;
  43. FUNCTION GXFindFonts(familyID: GxFont; name: GxFontName; platform: GxFontPlatform; script: GxFontScript; language: GxFontLanguage;
  44.         length: LongInt; text: ByteArray; index, count: LongInt; VAR fonts: GxFont): LongInt; C;
  45. FUNCTION GXCountFontGlyphs(fontID: GxFont): LongInt; C;
  46.  
  47. FUNCTION GXCountFontTables(fontID: GxFont): LongInt; C;
  48. FUNCTION GXGetFontTable(fontID: GxFont; index: LongInt; tableData: Ptr; VAR tableTag: GxFontTableTag): LongInt; C;
  49. FUNCTION GXFindFontTable(fontID: GxFont; tableTag: GxFontTableTag; tableData: Ptr; VAR index: LongInt): LongInt; C;
  50. FUNCTION GXGetFontTableParts(fontID: GxFont; index, offset, length: LongInt; tableData: Ptr; VAR tableTag: GxFontTableTag): LongInt; C;
  51. FUNCTION GXFindFontTableParts(fontID: GxFont; tableTag: GxFontTableTag; offset, length: LongInt; tableData: Ptr; VAR index: LongInt): LongInt; C;
  52. FUNCTION GXSetFontTable(fontID: GxFont; index: LongInt; tableTag: GxFontTableTag; length: LongInt; tableData: Ptr): LongInt; C;
  53. FUNCTION GXSetFontTableParts(fontID: GxFont; index: LongInt; tableTag: GxFontTableTag; offset, oldLength, newLength: LongInt; tableData: Ptr): LongInt; C;
  54. FUNCTION GXDeleteFontTable(fontID: GxFont; index: LongInt; tableTag: GxFontTableTag): LongInt; C;
  55.  
  56. FUNCTION GXCountFontNames(fontID: GxFont): LongInt; C;
  57. FUNCTION GXGetFontName(fontID: GxFont; index: LongInt; VAR name: GxFontName; VAR platform: GxFontPlatform; VAR script: GxFontScript;
  58.         VAR language: GxFontLanguage; VAR text: Byte): LongInt; C;
  59. FUNCTION GXFindFontName(fontID: GxFont; name: GxFontName; platform: GxFontPlatform; script: GxFontScript;
  60.         language: GxFontLanguage; VAR text: Byte; VAR index: LongInt): LongInt; C;
  61. FUNCTION GXSetFontName(fontID: GxFont; name: GxFontName; platform: GxFontPlatform; script: GxFontScript;
  62.         language: GxFontLanguage; length: LongInt; text: ByteArray): LongInt; C;
  63. FUNCTION GXDeleteFontName(fontID: GxFont; index: LongInt; name: GxFontName; platform: GxFontPlatform; script: GxFontScript; language: GxFontLanguage): LongInt; C;
  64. FUNCTION GXNewFontNameID(fontID: GxFont): GxFontName; C;
  65.  
  66. FUNCTION GXCountFontEncodings(fontID: GxFont): LongInt; C;
  67. FUNCTION GXGetFontEncoding(fontID: GxFont; index: LongInt; VAR script: GxFontScript; VAR language: GxFontLanguage): GxFontPlatform; C;
  68. FUNCTION GXFindFontEncoding(fontID: GxFont; platform: GxFontPlatform; script: GxFontScript; language: GxFontLanguage): LongInt; C;
  69. FUNCTION GXApplyFontEncoding(fontID: GxFont; index: LongInt; VAR length: LongInt; text: ByteArray; count: LongInt;
  70.         VAR glyphs: UnsignedLongint; VAR was16Bit: SignedByte): LongInt; C;
  71.  
  72. FUNCTION GXCountFontVariations(aGxFont: GxFont): LongInt; C;
  73. FUNCTION GXFindFontVariation(aGxFont: GxFont; variationTag: GxFontTableTag; VAR minValue, defaultValue, maxValue: Fixed;
  74.         VAR name: GxFontName): LongInt; C;
  75. FUNCTION GXGetFontVariation(aGxFont: GxFont; index: LongInt; VAR minValue, defaultValue, maxValue: Fixed; VAR name: GxFontName): GxFontTableTag; C;
  76.  
  77. FUNCTION GXCountFontInstances(aGxFont: GxFont): LongInt; C;
  78. FUNCTION GXGetFontInstance(aGxFont: GxFont; index: LongInt; VAR variation: GxFontVariation): GxFontName; C;
  79. FUNCTION GXSetFontInstance(fontID: GxFont; index: LongInt; name: GxFontName; variation: GxFontVariationArray): LongInt; C;
  80. FUNCTION GXDeleteFontInstance(fontID: GxFont; index: LongInt; name: GxFontName): LongInt; C;
  81.  
  82. FUNCTION GXCountFontDescriptors(fontID: GxFont): LongInt; C;
  83. FUNCTION GXGetFontDescriptor(fontID: GxFont; index: LongInt; VAR descriptorValue: Fixed): GxFontTableTag; C;
  84. FUNCTION GXFindFontDescriptor(fontID: GxFont; descriptorTag: GxFontTableTag; VAR descriptorValue: Fixed): LongInt; C;
  85. FUNCTION GXSetFontDescriptor(fontID: GxFont; index: LongInt; descriptorTag: GxFontTableTag; descriptorValue: Fixed): LongInt; C;
  86. FUNCTION GXDeleteFontDescriptor(fontID: GxFont; index: LongInt; descriptorTag: GxFontTableTag): LongInt; C;
  87.  
  88. FUNCTION GXCountFontFeatures(fontID: GxFont): LongInt; C;
  89. FUNCTION GXGetFontFeature(fontID: GxFont; index: LongInt; VAR flags: GxFontFeatureFlag; VAR settingCount: LongInt;
  90.         VAR settings: GxFontFeatureSetting; VAR feature: GxFontFeature): GxFontName; C;
  91. FUNCTION GXFindFontFeature(fontID: GxFont; feature: GxFontFeature; VAR flags: GxFontFeatureFlag; VAR settingCount: LongInt;
  92.         VAR settings: GxFontFeatureSetting; VAR index: LongInt): GxFontName; C;
  93.  
  94. PROCEDURE GXFlattenFont(source: GxFont; VAR scalerStream: Ptr; VAR block: GxSpoolBlock); C;
  95.  
  96.  
  97. {$ENDC}
  98.  
  99. {$IFC NOT UsingIncludes}
  100.     END.
  101. {$ENDC}
  102.